home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
os2
/
adaptor.zip
/
ADAPT.ZIP
/
adaptor
/
examples
/
dalib
/
random
/
double.f
< prev
next >
Wrap
Text File
|
1993-03-23
|
280b
|
18 lines
program real_randoms
parameter (N=100)
double precision A(N), HA(N)
cmf$ layout HA(:HOST)
print *, 'Get ',N,' random numbers (double precision) from 0 to 1'
call cmf_random (A)
HA = A
print 10, HA
10 FORMAT (4F20.15)
end